home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / playin_1 / sound.bas < prev   
Encoding:
BASIC Source File  |  1999-08-17  |  824 b   |  14 lines
  1. Attribute VB_Name = "Sound"
  2.      Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  3.      Public Const SND_SYNC = &H0 ' Don't return until sound ends (default).
  4.      Public Const SND_ASYNC = &H1 ' Return immediately after the sound starts.
  5.      Public Const SND_NODEFAULT = &H2 ' If the sound file is not found, do NOT play default sound.
  6.      Public Const SND_MEMORY = &H4 ' Play a sound from a buffer in memory.
  7.      Public Const SND_LOOP = &H8 ' Loop sound continuously (used with SND_ASYNC)
  8.      Public Const SND_NOSTOP = &H10 ' Don't stop current sound to play another.
  9.  
  10. Public Sub s_Playsound(strName As String)
  11.     strName = App.Path & "\sound\" & strName & ".wav"
  12.     sndPlaySound strName, SND_ASYNC Or SND_NODEFAULT
  13. End Sub
  14.